A VB.Net Program I wrote to demonstrate how to get a list of subfolders of a folder. There are two different methods used to accomplish this. One is the built-in DirectoryInfo Object GetDirectories method, the other is a recursive function call.
You can download the whole source code.
Here is seom code from the program:
You can download the whole source code.
Here is seom code from the program:
'Recursive Function To Find All SubDirectory Names Public Sub SubFoldersRecursive(ByVal Root As DirectoryInfo, ByRef Status As String) Try Status += Root.FullName + vbNewLine If (Root.GetDirectories.Length <= 0) Then Exit Sub End If Dim SD As DirectoryInfo For Each SD In Root.GetDirectories SubFoldersRecursive(SD, Status) Next Catch ex As Exception Status += ex.Message + vbNewLine End Try End Sub 'NON-Recursive Function To Find All SubDirectory Names Public Sub SubFolders(ByVal Root As DirectoryInfo, ByRef Status As String) Dim Dir As DirectoryInfo Status += Root.FullName + vbNewLine For Each Dir In Root.GetDirectories("*", SearchOption.AllDirectories) Status += Dir.FullName + vbNewLine Next End Sub
« Leave Comment »